home *** CD-ROM | disk | FTP | other *** search
/ New Star Software Collection / NSS_Collection.iso / 3-170 dbase 10 for windows / 1.ima / SAMPLES.PAK / FOCUS2.PRG < prev    next >
Encoding:
Text File  |  1993-07-26  |  1.7 KB  |  44 lines
  1. *******************************************************************************
  2. *  PROGRAM:      Focus2.prg
  3. *
  4. *  WRITTEN BY:   Borland Late Night Crew
  5. *
  6. *  DATE:         7/93
  7. *
  8. *  UPDATED:
  9. *
  10. *  VERSION:      Alpha α
  11. *
  12. *  DESCRIPTION:  This program defines a class Mywindow, which is derived from
  13. *                Bladerunner's Window class.  This derived class is defined
  14. *                with 3 event handlers -- OnGotFocus,OnLostFocus
  15. *                and OnMouseDown.  Two instances of this class are declared,
  16. *                and each one brings up a window.  As you move between the
  17. *                two windows, you can clearly see the event handling functions
  18. *                at work.  Changing focus from one window to another changes
  19. *                the caption for both windows, indicating which has focus.
  20. *                You can also see the effect by the changing caption on the
  21. *                pushbutton in each window.  It displays the number of times
  22. *                the current window has had the focus.  Each time you click
  23. *                In the window, the clickcount for that window is incremented.
  24. *
  25. *  PARAMETERS:   None
  26. *
  27. *  CALLS:        None
  28. *
  29. *  USAGE:        DO Focus2
  30. *
  31. *
  32. *
  33. *******************************************************************************
  34. * Must set procedure to this file because you exit the program after
  35. * the 2 instantiations of MyWindow.  And Bladerunner must know about the
  36. * event handling functions when the main program finishes.  It is basically
  37. * waiting for an event to occur.
  38.  
  39. set procedure to sampproc
  40. w1 = new MyWindow()  && Create 2 instances of MyWindow
  41. w2 = new MyWindow()
  42.  
  43. ****************************** End of Focus2.prg ******************************
  44.